
package org.xteam.pascal.parser.ast;

import org.xteam.parser.runtime.Span;

public class RecordType extends Type {
	
	public org.xteam.parser.runtime.reflect.AstNodeType getNodeType() {
		return PascalAstPackage.INSTANCE.getRecordTypeType();
	}
	
	protected PackedFlag flag;
	protected FieldsAndVariant body;
	
	public RecordType(Span span, PackedFlag flag,FieldsAndVariant body) {
		super(span);
		this.flag = flag;
		this.body = body;
	}
	
	
	public PackedFlag getFlag() {
		return flag;
	}
	
	public void setFlag(PackedFlag flag) {
		this.flag = flag;
	}
	
	public FieldsAndVariant getBody() {
		return body;
	}
	
	public void setBody(FieldsAndVariant body) {
		this.body = body;
	}
	

	public void visit(IPascalVisitor visitor) {
		visitor.visitRecordType(this);
	}
}
